home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Nibble Volume 10, No. 07 (1989-07)(MindCraft Publishing)(Side B).zip / Nibble Volume 10, No. 07 (1989-07)(MindCraft Publishing)(Side B).do / PS.VIEWER.bas < prev    next >
BASIC Source File  |  1996-12-24  |  231b  |  1 lines
  1. 10  HOME : TEXT : HGR :X = .:Y = 80: HCOLOR= 3: FOR I = 22528 TO 23099:N =  PEEK(I): FOR J = 7 TO .  STEP  -1:K = 2 ^J:C = (N > = K):N = N -C *K:NC = 1 -C: HPLOT X *C +(X +120) *NC,Y:X = (X +1) *(X <87):Y = Y +(X = .): NEXT : NEXT